home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #2 / Floppy_Magazine_88-2_1988_Megasystems_Oy_fi_Side_A.d64 / treasures1 (.txt) next >
Commodore BASIC  |  2023-02-26  |  37KB  |  1,312 lines
  1. 0 print"[147]":poke53281,5:poke53280,5
  2. 2 print"[147][153][205]enu 1"
  3. 4 print"[196][213][206][199][197][207][206][211]"
  4. 6 print"&"
  5. 8 print"[196][210][193][199][207][206][211]"
  6. 10 print"[153][212][210][197][193][211][213][210][197] [193][201][196]"
  7. 12 print"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  8. 14 print"[144][194]y [212]he [194]alron 1987"
  9. 16 print"[151][195]hoose one of the followings:"
  10. 18 print"1.[208]otions"
  11. 20 print"2.[199]ems"
  12. 22 print"3.[193]rmor or [211]hield"
  13. 24 print"4.[211]word"
  14. 26 print"5.[202]ewelry"
  15. 28 print"6.[200]its jne."
  16. 30 print"7.[205]enu 2"
  17. 31 sys49152
  18. 36 geta$:ifa$=""then36
  19. 38 ifa$="1"then60
  20. 40 ifa$="2"then186
  21. 42 ifa$="3"then414
  22. 44 ifa$="4"then574
  23. 46 ifa$="5"then916
  24. 48 ifa$="6"then1220
  25. 50 ifa$="7"then1226
  26. 54 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$<>"6"anda$<>"7"then36
  27. 56 end
  28. 58 rem *** potions ***
  29. 60 input"[147][200]ow many potions";p
  30. 62 print"[147][208]otion of:[158]"
  31. 63 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  32. 64 fori=1top
  33. 66 x=int(100*rnd(ti)+1)
  34. 68 ifx<2thenprint"agility"
  35. 70 ifx=3thenprint"animal control"
  36. 72 ifx=>4andx<=6thenprint"antidote"
  37. 74 ifx=>7andx<=8thenprint"blending"
  38. 76 ifx=>9andx<=10thenprint"bug repellant"
  39. 78 ifx=>11andx<=12thenprint"clairaudience"
  40. 80 ifx=>13andx<=14thenprint"clairvoyance"
  41. 82 ifx=>15andx<=16thenprint"climbing"
  42. 84 ifx=>17andx<=18thenprint"defense"
  43. 86 ifx=>19andx<=20thenprint"diminution"
  44. 88 ifx=>21andx<=24thenprint"delusion"
  45. 90 ifx=25thenprint"dragon control"
  46. 92 ifx=>26andx<=27thenprint"dream speech"
  47. 94 ifx=28thenprint"elasticity"
  48. 96 ifx=>29andx<=30thenprint"elemental form"
  49. 98 ifx=>31andx<=32thenprint"esp"
  50. 100 ifx=33thenprint"ethereality"
  51. 102 ifx=>34andx<=36thenprint"fire resistance"
  52. 104 ifx=>37andx<=39thenprint"flying"
  53. 106 ifx=>40andx<=41thenprint"fortitude"
  54. 108 ifx=42thenprint"freedom"
  55. 110 ifx=97thenprint"treasure finding"
  56. 112 ifx=>43andx<=45thenprint"gaseous form"
  57. 114 ifx=46thenprint"giant control"
  58. 116 ifx=>47andx<=49thenprint"giant strength"
  59. 118 ifx=>50andx<=51thenprint"growth"
  60. 120 ifx=>52andx<=57thenprint"healing"
  61. 122 ifx=>58andx<=60thenprint"heroism"
  62. 124 ifx=61thenprint"human control"
  63. 126 ifx=>62andx<=64thenprint"invisibility"
  64. 128 ifx=>65andx<=66thenprint"invulnerability"
  65. 130 ifx=>67andx<=68thenprint"levitation"
  66. 132 ifx=>69andx<=70thenprint"longevity"
  67. 134 ifx=71thenprint"luck"
  68. 136 ifx=72thenprint"merging"
  69. 138 ifx=>73andx<=74thenprint"plant control"
  70. 140 ifx=>75andx<=77thenprint"poison"
  71. 142 ifx=>78andx<=80thenprint"polymorph self"
  72. 144 ifx=>81andx<=82thenprint"sight"
  73. 146 ifx=>83andx<=84thenprint"speech"
  74. 148 ifx=>85andx<=88thenprint"speed"
  75. 150 ifx=>89andx<=90thenprint"strength"
  76. 152 ifx=>91andx<=93thenprint"super-healing"
  77. 154 ifx=>94andx<=96thenprint"swimming"
  78. 156 ifx=98thenprint"undead control"
  79. 158 ifx=>99andx<=100thenprint"water breathing"
  80. 160 ifi=18 then print"press any key[158]":gosub168
  81. 162 ifi=36 then print"press any key[158]":gosub168
  82. 164 nexti
  83. 166 goto172
  84. 168 getl$:ifl$=""then168
  85. 170 print"[147][208]otion of:[158]"
  86. 171 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":return
  87. 172 print"[206]ew potions (y/n)[158]"
  88. 174 geta$:ifa$=""then174
  89. 176 ifa$="y"then60
  90. 178 ifa$="n"then0
  91. 180 ifa$<>"y"anda$<>"n"then174
  92. 182 end
  93. 184 rem *** gems ***
  94. 186 clr
  95. 188 print"[147][196]o you want the gem names (y/n)"
  96. 190 getty$:ifty$=""then190
  97. 192 ifty$="y"thengoto200
  98. 194 ifty$="n"thengoto364
  99. 196 ifty$<>"y"andty$<>"n"then190
  100. 198 end
  101. 200 aa=0:bb=0:cc=0:dd=0:ee=0:ff=0:gg=0:hh=0
  102. 202 a$(1)="[193]gate":a$(2)="[209]uartz":a$(3)="[212]urquoise"
  103. 204 b$(1)="[195]rystal":b$(2)="[202]asper":b$(3)="[207]nyx"
  104. 206 c$(1)="[193]mber":c$(2)="[193]methyst":c$(3)="[195]oral":c$(4)="[199]ranet":c$(5)="[202]ade"
  105. 208 d$(1)="[193]quamarine":d$(2)="[208]earl":d$(3)="[212]opaz":e$(1)="[195]arbuncle"
  106. 210 e$(2)="[207]pal":f$(1)="[197]merald":f$(2)="[210]uby":f$(3)="[211]apphire"
  107. 212 g$(1)="[196]iamond":g$(2)="[202]ancinth":h$(1)="[211]tarstone":h$(2)="[212]ristal"
  108. 214 h$(3)="[211]pecial"
  109. 216 r=0
  110. 218 print"[147]"
  111. 220 input"[200]ow many [199]ems";g
  112. 222 print"[147][197]xample[157][157][157][157][157][157][157]of [199]em        [214]alue"
  113. 224 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  114. 226 fori=1036to2044step40:pokei,93:nexti
  115. 228 fork=1tog
  116. 230 a=int(100*rnd(ti)+1)
  117. 232 ifa<=3thenv=10:b=1
  118. 234 ifa=>4anda<=10thenv=50:b=2
  119. 236 ifa=>11anda<=25thenv=100:b=3
  120. 238 ifa=>26anda<=46thenv=500:b=4
  121. 240 ifa=>47anda<=71thenv=1000:b=5
  122. 242 ifa=>72anda<=90thenv=5000:b=6
  123. 244 ifa=>91anda<=97thenv=10000:b=7
  124. 246 ifa=>98anda<=100thenv=50000:b=8
  125. 248 p=r+v:r=p
  126. 250 c=int(3*rnd(ti)+1)
  127. 252 d=int(3*rnd(ti)+1)
  128. 254 e=int(5*rnd(ti)+1)
  129. 256 f=int(3*rnd(ti)+1)
  130. 258 g=int(2*rnd(ti)+1)
  131. 260 h=int(3*rnd(ti)+1)
  132. 262 i=int(2*rnd(ti)+1)
  133. 264 j=int(3*rnd(ti)+1)
  134. 266 ifb=1thenprinta$(c)tab(13)"[158]"v"   [199][208]'s"
  135. 268 ifb=2thenprintb$(d)tab(13)"[158]"v"   [199][208]'s"
  136. 270 ifb=3thenprintc$(e)tab(13)"[158]"v"  [199][208]'s"
  137. 272 ifb=4thenprintd$(f)tab(13)"[158]"v"  [199][208]'s"
  138. 274 ifb=5thenprinte$(g)tab(13)"[158]"v" [199][208]'s"
  139. 276 ifb=6thenprintf$(h)tab(13)"[158]"v" [199][208]'s"
  140. 278 ifb=7thenprintg$(i)tab(13)"[158]"v"[199][208]'s"
  141. 280 ifb=8thenprinth$(j)tab(13)"[158]"v"[199][208]'s"
  142. 282 ifk=18thenprint"[208]ress a [203]ey":gosub352
  143. 284 ifk=35thenprint"[208]ress a [203]ey":gosub352
  144. 286 ifk=53thenprint"[208]ress a [203]ey":gosub352
  145. 288 ifk=71thenprint"[208]ress a [203]ey":gosub352
  146. 290 ifk=89thenprint"[208]ress a [203]ey":gosub352
  147. 292 ifk=107thenprint"[208]ress a [203]ey":gosub352
  148. 294 ifk=125thenprint"[208]ress a [203]ey":gosub352
  149. 296 ifb=1thenaa=aa+1
  150. 298 ifb=2thenbb=bb+1
  151. 300 ifb=3thencc=cc+1
  152. 302 ifb=4thendd=dd+1
  153. 304 ifb=5thenee=ee+1
  154. 306 ifb=6thenff=ff+1
  155. 308 ifb=7thengg=gg+1
  156. 310 ifb=8thenhh=hh+1
  157. 312 nextk
  158. 314 print"[208]ress a [203]ey"
  159. 316 getl$:ifl$=""then316
  160. 318 print"[147][197]xample of [199]em       [214]alue"
  161. 320 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  162. 322 print"[212]otal [214]alue of [199]ems="r"[199][208]"
  163. 324 print"10 [199]ems";aa
  164. 326 print"50 [199]ems";bb
  165. 328 print"100 [199]ems";cc
  166. 330 print"500 [199]ems";dd
  167. 332 print"1000 [199]ems";ee
  168. 334 print"5000 [199]ems";ff
  169. 336 print"10000 [199]ems";gg
  170. 338 print"50000 [199]ems";hh
  171. 340 print"[206]ew [199]ems ([217]/[206])"
  172. 342 geta$:ifa$=""then342
  173. 344 ifa$="y"then186
  174. 346 ifa$="n"thengoto0
  175. 348 ifa$<>"y"anda$<>"n"then342
  176. 350 end
  177. 352 rem
  178. 354 getl$:ifl$=""then354
  179. 356 print"[147][197]xample[157][157][157][157][157][157][157]of [199]em        [214]alue"
  180. 358 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  181. 360 fori=1036to2044step40:pokei,93:nexti
  182. 362 return
  183. 364 print"[147]":xx=1
  184. 366 input"[200]ow many [199]ems";g
  185. 368 print"[147][208]lease wait, counting"
  186. 370 fork=1tog
  187. 372 a=int(100*rnd(ti)+1)
  188. 374 ifa<=3thenv=10:b=1
  189. 376 ifa=>4anda<=10thenv=50:b=2
  190. 378 ifa=>11anda<=25thenv=100:b=3
  191. 380 ifa=>26anda<=46thenv=500:b=4
  192. 382 ifa=>47anda<=71thenv=1000:b=5
  193. 384 ifa=>72anda<=90thenv=5000:b=6
  194. 386 ifa=>91anda<=97thenv=10000:b=7
  195. 388 ifa=>98anda<=100thenv=50000:b=8
  196. 390 p=r+v:r=p
  197. 392 ifb=1thenaa=aa+1
  198. 394 ifb=2thenbb=bb+1
  199. 396 ifb=3thencc=cc+1
  200. 398 ifb=4thendd=dd+1
  201. 400 ifb=5thenee=ee+1
  202. 402 ifb=6thenff=ff+1
  203. 404 ifb=7thengg=gg+1
  204. 406 ifb=8thenhh=hh+1
  205. 408 next
  206. 410 goto318
  207. 412 rem *** armor ***
  208. 414 clr
  209. 416 rem *** size ***
  210. 418 print"[147]"
  211. 420 print"[193]rmor [211]ize:";
  212. 422 gosub572
  213. 424 ifa<=68thenprint"[200]uman"
  214. 426 ifa=>69anda<=81thenprint"[196]warf"
  215. 428 ifa=>82anda<=91thenprint"[197]lf"
  216. 430 ifa=>92anda<=98thenprint"[200]alfling"
  217. 432 ifa=>99anda<=100thenprint"[199]iant"
  218. 434 rem *** type ***
  219. 436 print"[212]ype:";
  220. 438 gosub572
  221. 440 ifa<=10thenprint"leather";:gosub462:goto536
  222. 442 ifa=>11anda<=17thenprint"scale mail";:gosub480:goto536
  223. 444 ifa=>18anda<=30thenprint"chain mail";:gosub480:goto536
  224. 446 ifa=>31anda<=39thenprint"banded mail";:gosub498:goto536
  225. 448 ifa=>40anda<=50thenprint"plate mail";:gosub498:goto536
  226. 450 ifa=>51anda<=75thenprint"shield";:gosub516:goto536
  227. 452 ifa=>76anda<=77thenprint"scale mail";:gosub480:print" & shield";:gosub516:goto536
  228. 454 ifa=>78anda<=85thenprint"chain mail";:gosub480:print" & shield";:gosub516:goto536
  229. 456 ifa=>86anda<=90thenprint"banded mail";:gosub498:print" & shield";:gosub516:goto536
  230. 458 ifa=>91anda<=100thenprint"plate mail";:gosub498:print" & shield";:gosub516:goto536
  231. 460 end
  232. 462 rem *** leather ***
  233. 464 gosub572
  234. 466 ifa<=70thenprint"+1";:cs=10
  235. 468 ifa=>71anda<=88thenprint"+2";:c=15
  236. 470 ifa=>89anda<=96thenprint"+3";:c=20
  237. 472 ifa=>97anda<=99thenprint"+4";:c=25
  238. 474 ifa=100thenprint"+5";:c=30
  239. 476 return
  240. 478 end
  241. 480 rem *** scale and chain ***
  242. 482 gosub572
  243. 484 ifa<=60thenprint"+1":cs=10
  244. 486 ifa=>61anda<=81thenprint"+2";:cs=15
  245. 488 ifa=>82anda<=92thenprint"+3";:cs=20
  246. 490 ifa=>93anda<=98thenprint"+4";:cs=25
  247. 492 ifa=>99anda<=100thenprint"+5";:cs=30
  248. 494 return
  249. 496 end
  250. 498 rem *** banded and plate ***
  251. 500 gosub572
  252. 502 ifa<=50thenprint"+1";:cs=10
  253. 504 ifa=>51anda<=74thenprint"+2";:cs=15
  254. 506 ifa=>75anda<=88thenprint"+3";:cs=20
  255. 508 ifa=>89anda<=96thenprint"+4";:cs=25
  256. 510 ifa=>97anda<=100thenprint"+5";:cs=30
  257. 512 return
  258. 514 end
  259. 516 rem *** shield ***
  260. 518 gosub572
  261. 520 ifa<=40thenprint"+1";:cs=10
  262. 522 ifa=>41anda<=67thenprint"+2";:cs=15
  263. 524 ifa=>68anda<=84thenprint"+3";:cs=20
  264. 526 ifa=>85anda<=94thenprint"+4";:cs=25
  265. 528 ifa=>95anda<=100thenprint"+5";:cs=30
  266. 530 return
  267. 532 end
  268. 534 rem ** special armor or shield **
  269. 536 gosub572:ifa>csthengoto564
  270. 538 gosub572
  271. 540 ifa<=7thenprint" + absorption"
  272. 542 ifa=>8anda<=17thenprint" + charm"
  273. 544 ifa=>18anda<=32thenprint" + cure wounds"
  274. 546 ifa=>33anda<=42thenprint" + electricity"
  275. 548 ifa=>43anda<=47thenprint" + energy drain"
  276. 550 ifa=>48anda<=50thenprint" + ethereality"
  277. 552 ifa=>51anda<=60thenprint" + fly"
  278. 554 ifa=>61anda<=66thenprint" + gaseous form"
  279. 556 ifa=>67anda<=75thenprint" + haste"
  280. 558 ifa=>76anda<=85thenprint" + invisibility"
  281. 560 ifa=>86anda<=93thenprint" + reflection"
  282. 562 ifa=>94anda<=100thenprint" + remove curse"
  283. 564 getx$:ifx$=""then564
  284. 566 ifx$=chr$(32)thengoto414
  285. 568 ifx$=chr$(13)thengoto0
  286. 570 ifx$<>chr$(32)andx$<>chr$(13)then564
  287. 572 a=int(100*rnd(ti)+1):return
  288. 574 poke53281,5:poke53280,5:print""
  289. 576 print"[147]":clr
  290. 578 rem *** sword type ***
  291. 580 x=int(100*rnd(ti)+1)
  292. 582 ifx<=65thena$="c":print"[206]ormal sword";
  293. 584 ifx=>66andx<=84thena$="c":print"[211]hort sword";
  294. 586 ifx=>85andx<=92thena$="d":print"[212]wo-handed sword";
  295. 588 ifx=>93andx<=100thena$="d":print"[194]astard sword";
  296. 590 rem *** strength ***
  297. 592 ifa$="c"then596
  298. 594 ifa$="d"then610
  299. 596 a=int(100*rnd(ti)+1)
  300. 598 ifa<=60thencb=40:print"+1";
  301. 600 ifa=>61anda<=81thencb=30:print"+2";
  302. 602 ifa=>82anda<=92thencb=25:print"+3";
  303. 604 ifa=>93anda<=98thencb=20:print"+4";
  304. 606 ifa=>99anda<=100thencb=15:print"+5";
  305. 608 goto622
  306. 610 ifa<=70thencb=40:print"+1";
  307. 612 ifa=>71anda<=88thencb=30:print"+2";
  308. 614 ifa=>89anda<=96thencb=25:print"+3";
  309. 616 ifa=>97anda<=99thencb=20:print"+4";
  310. 618 ifa=100thencb=15:print"+5";
  311. 620 goto622
  312. 622 rem *** bonuses ***
  313. 624 f=int(100*rnd(ti)+1)
  314. 626 iff>cbthen726
  315. 628 iff<cbthen632
  316. 630 rem *********
  317. 632 s=int(100*rnd(ti)+1)
  318. 634 ifs<=29thenprint"+1 vs.";
  319. 636 ifs=>30ands<=50thenprint"+2 vs.";
  320. 638 ifs=>51ands<=64thenprint"+3 vs.";
  321. 640 ifs=>65ands<=72thenprint"+4 vs.";
  322. 642 ifs=>73ands<=75thenprint"+5 vs.";
  323. 644 ifs=>76ands<=100thenprint" + ";:goto680
  324. 646 rem *** opponents ***
  325. 648 i=int(100*rnd(ti)+1)
  326. 650 ifi<=6thenprint"[194]ugs"
  327. 652 ifi=>7andi<=9thenprint"[195]onstructs"
  328. 654 ifi=>10andi<=15thenprint"[196]ragons"
  329. 656 ifi=>16andi<=24thenprint"[197]nchanted monsters"
  330. 658 ifi=>25andi<=36thenprint"[199]iants"
  331. 660 ifi=>37andi<=48thenprint"[204]ycanthropes"
  332. 662 ifi=>49andi<=52thenprint"[207]ther-planar creatures"
  333. 664 ifi=>53andi<=58thenprint"[210]egenerating [195]reatures"
  334. 666 ifi=>59andi<=67thenprint"[210]eptiles (and [196]inosaurs)"
  335. 668 ifi=>68andi<=70thenprint"[211]pell [201]mmune creatures"
  336. 670 ifi=>71andi<=76thenprint"[211]pell [213]sers"
  337. 672 ifi=>77andi<=88thenprint"[213]ndead"
  338. 674 ifi=>89andi<=94thenprint"[215]ater-[194]reathing [195]reatures"
  339. 676 ifi=>95andi<=100thenprint"[215]eapon-[213]sing [195]reatures"
  340. 678 goto726
  341. 680 rem *** talent ***
  342. 682 p=int(100*rnd(ti)+1)
  343. 684 ifp<=5thenprint"[194]reathing"
  344. 686 ifp=>6andp<=12thenprint"[195]harming"
  345. 688 ifp=>13andp<=16thenprint"[196]eceiving"
  346. 690 ifp=>17andp<=23thenprint"[196]efending"
  347. 692 ifp=>24andp<=25thenprint"[196]eflector"
  348. 694 ifp=>26andp<=27thenprint"[196]raining"
  349. 696 ifp=>28andp<=32thenprint"[197]xtinguishing"
  350. 698 ifp=>33andp<=38thenprint"[198]inding"
  351. 700 ifp=>39andp<=43thenprint"[198]laming"
  352. 702 ifp=>44andp<=46thenprint"[198]lying"
  353. 704 ifp=>47andp<=54thenprint"[200]ealing"
  354. 706 ifp=>55andp<=59thenprint"[200]iding"
  355. 708 ifp=>60andp<=65thenprint"[200]olding"
  356. 710 ifp=>66andp<=73thenprint"[204]ightning"
  357. 712 ifp=>74andp<=79thenprint"[211]ilencing"
  358. 714 ifp=>80andp<=81thenprint"[211]licing"
  359. 716 ifp=>82andp<=85thenprint"[211]lowing"
  360. 718 ifp=>86andp<=89thenprint"[211]peeding"
  361. 720 ifp=>90andp<=94thenprint"[212]ranslating"
  362. 722 ifp=>95andp<=99thenprint"[215]atching"
  363. 724 ifp=100thenprint"[215]ishing"
  364. 726 rem *** intelligence ***
  365. 728 print:
  366. 730 o=int(100*rnd(ti)+1)
  367. 732 ifo<=79thenin=0:co=0:po=0:la=0:print"[201]t's [206]on-[201]ntelligent":goto908
  368. 734 ifo=>80ando<=85thenin=7:co=1:po=1:la=0:goto746
  369. 736 ifo=>86ando<=90thenin=8:co=1:po=2:la=0:goto746
  370. 738 ifo=>91ando<=94thenin=9:co=1:po=3:la=0:goto746
  371. 740 ifo=>95ando<=97thenin=10:co=2:po=3:la=(int(3*rnd(ti)+1)):goto746
  372. 742 ifo=>98ando<=99thenin=11:co=2:po=3:rm=1:la=(int(6*rnd(ti)+1)):goto746
  373. 744 ifo=100thenin=12:co=2:po=3:rm=1:ex=1:ro=1:la=(int(7*rnd(ti)+2)):goto746
  374. 746 rem
  375. 748 ifin>0thenprint"[144][201]t's [201]ntelligent:"
  376. 750 print"[201]t [195]an:"
  377. 752 forn=1topo
  378. 754 y=int(100*rnd(ti)+1)
  379. 756 ify<=10thenprint"[196]etect [197]vil([199]ood)"
  380. 758 ify=>11andy<=15thenprint"[196]etect [199]ems"
  381. 760 ify=>16andy<=25thenprint"[196]etect [205]agic"
  382. 762 ify=>26andy<=35thenprint"[196]etect [205]etal"
  383. 764 ify=>36andy<=50thenprint"[196]etect [211]hifting [215]alls and [210]ooms"
  384. 766 ify=>51andy<=65thenprint"[196]etect [211]loping [208]assages"
  385. 768 ify=>66andy<=75thenprint"[198]ind [211]ecret [196]oors"
  386. 770 ify=>76andy<=85thenprint"[198]ind [212]raps"
  387. 772 ify=>86andy<=95thenprint"[211]ee [201]nvisible"
  388. 774 ify=>96andy<=99thenex=1
  389. 776 ify=100thenpo=2
  390. 778 nextn
  391. 780 ifrm=1thenprint"[210]ead [205]agic"
  392. 782 rem *** extraordinary powers ***
  393. 784 ifex<>1then828
  394. 786 print"[197]xtraordinary [208]owers:"
  395. 788 fori=1toro
  396. 790 ro=ro-1
  397. 792 x=int(100*rnd(ti)+1)
  398. 794 ifx<=10thenprint"[195]lairaudience"
  399. 796 ifx=>11andx<=20thenprint"[195]lairvoyance"
  400. 798 ifx=>21andx<=30thenprint"[197][211][208]"
  401. 800 ifx=>31andx<=35thenprint"[197]xtra [196]amage"
  402. 802 ifx=>36andx<=40thenprint"[198]lying"
  403. 804 ifx=>41andx<=45thenprint"[200]ealing"
  404. 806 ifx=>46andx<=54thenprint"[201]llusion"
  405. 808 ifx=>55andx<=59thenprint"[204]evitation"
  406. 810 ifx=>60andx<=69thenprint"[212]elekinesis"
  407. 812 ifx=>70andx<=79thenprint"[212]elepathy"
  408. 814 ifx=>80andx<=88thenprint"[212]eleportation"
  409. 816 ifx=>89andx<=97thenprint"[216]-[210]ay [214]ision"
  410. 818 ifx=>98andx<=99thenro=2
  411. 820 ifx=100thenro=3
  412. 822 rem *** extra rolls ***
  413. 824 next
  414. 826 ifro>0then788
  415. 828 rem
  416. 830 rem
  417. 832 rem *** int.cont. ***
  418. 834 q=int(20*rnd(ti)+1)
  419. 836 print"[211]word is ";
  420. 838 ifq<=13thenprint"[204]awful"
  421. 840 ifq=>14andq<=18thenprint"[206]eutral"
  422. 842 ifq=>19andq<=20thenprint"[195]haotic"
  423. 844 rem *** more intelligence ***
  424. 846 print"[211]words [201]ntelligence [211]core [201]s";in
  425. 848 print"[211]word [195]ommunicates [194]y ";
  426. 850 ifco=1thenprint"[197]mpathy"
  427. 852 ifco=2thenprint"[211]peech"
  428. 854 rem *** languages ***
  429. 856 ifla=0thengoto908
  430. 858 print"[204]anguanges:"
  431. 860 fori=1tola
  432. 862 r=int(20*rnd(ti)+1)
  433. 864 ifr=rthenla=la+1
  434. 866 ifr=1thenprint"[194]ugbear"
  435. 868 ifr=2thenprint"[196]oppleganger"
  436. 870 ifr=3thenprint"[196]ragon"
  437. 872 ifr=4thenprint"[196]warf"
  438. 874 ifr=5thenprint"[197]lf"
  439. 876 ifr=6thenprint"[199]argoyle"
  440. 878 ifr=7thenprint"[199]noll"
  441. 880 ifr=8thenprint"[199]nome"
  442. 882 ifr=9thenprint"[199]oblin"
  443. 884 ifr=10thenprint"[200]alfling"
  444. 886 ifr=11thenprint"[200]arpy"
  445. 888 ifr=12thenprint"[200]obgoblin"
  446. 890 ifr=13thenprint"[203]obold"
  447. 892 ifr=14thenprint"[204]izard man"
  448. 894 ifr=15thenprint"[205]edusa"
  449. 896 ifr=16thenprint"[205]inotaur"
  450. 898 ifr=17thenprint"[207]gre or [199]iant"
  451. 900 ifr=18thenprint"[207]rc"
  452. 902 ifr=19thenprint"[208]ixie"
  453. 904 ifr=20thenprint"[207]ther [200]uman [212]ongue"
  454. 906 next
  455. 908 getx$:ifx$=""then908
  456. 910 ifx$=chr$(32)then576
  457. 912 ifx$=chr$(13)then0
  458. 914 ifx$<>chr$(13)andx$<>chr$(32)then908
  459. 916 print"[147][196]o you want jewelry names (y/n)"
  460. 918 geto$:ifo$=""then918
  461. 920 ifo$="y"then926
  462. 922 ifo$="n"then1112
  463. 924 ifo$<>"y"ando$<>"n"then918
  464. 926 clr:print"[147]"
  465. 928 a$(1)="[193]nklet":a$(2)="[194]eads":a$(3)="[194]racelet":a$(4)="[194]rooch":a$(5)="[194]uckle"
  466. 930 a$(6)="[195]ameo":a$(7)="[195]hain":a$(8)="[195]lasp":a$(9)="[204]ocket":a$(10)="[208]in"
  467. 932 b$(1)="[193]rmband":b$(2)="[194]elt":b$(3)="[195]ollar":b$(4)="[197]arring"
  468. 934 b$(5)="4-leaf clover":b$(6)="[200]eart":b$(7)="[204]eaf":b$(8)="[206]ecklace"
  469. 936 b$(9)="[208]endant":b$(10)="[210]abbit's foot"
  470. 938 c$(1)="[193]mulet":c$(2)="[195]rown":c$(3)="[196]iadem":c$(4)="[205]edallion"
  471. 940 c$(5)="[207]rb":c$(6)="[210]ing":c$(7)="[211]carab":c$(8)="[211]cepter"
  472. 942 c$(9)="[212]alisman":c$(10)="[212]iara"
  473. 944 input"[200]ow many jewelry";j
  474. 946 print"[147][212]ype of[157][157][157][157][157][157][157]jewelry        [214]alue (in [199][208])"
  475. 948 fori=0to39:print"[183]";:next:print""
  476. 949 fori=1037to2044step40:pokei,93:nexti
  477. 950 print""
  478. 952 fori=1toj
  479. 954 x=int(100*rnd(ti)+1)
  480. 956 ifx=1thenv=100:a=1
  481. 958 ifx=>2andx<=3thenv=500:a=1
  482. 960 ifx=>4andx<=6thenv=1000:a=1
  483. 962 ifx=>7andx<=10thenv=1500:a=1
  484. 964 ifx=>11andx<=16thenv=2000:a=1
  485. 966 ifx=>17andx<=24thenv=2500:a=1
  486. 968 ifx=>25andx<=34thenv=3000:a=1
  487. 970 ifx=>35andx<=45thenv=4000:a=2
  488. 972 ifx=>46andx<=58thenv=5000:a=2
  489. 974 ifx=>59andx<=69thenv=7500:a=2
  490. 976 ifx=>70andx<=78thenv=10000:a=2
  491. 978 ifx=>79andx<=85thenv=15000:a=3
  492. 980 ifx=>86andx<=90thenv=20000:a=3
  493. 982 ifx=>91andx<=94thenv=25000:a=3
  494. 984 ifx=>95andx<=97thenv=30000:a=3
  495. 986 ifx=>98andx<=99thenv=40000:a=3
  496. 988 ifx=100thenv=50000:a=3
  497. 990 s=z+v:z=s
  498. 992 y=int(10*rnd(ti)+1)
  499. 994 ifa=1thenprinta$(y)tab(14)v
  500. 996 ifa=2thenprintb$(y)tab(14)v
  501. 998 ifa=3thenprintc$(y)tab(14)v
  502. 1000 ifv=100thenaa=aa+1
  503. 1002 ifv=500thenbb=bb+1
  504. 1004 ifv=1000thencc=cc+1
  505. 1006 ifv=1500thendd=dd+1
  506. 1008 ifv=2000thenee=ee+1
  507. 1010 ifv=2500thenff=ff+1
  508. 1012 ifv=3000thengg=gg+1
  509. 1014 ifv=4000thenhh=hh+1
  510. 1016 ifv=5000thenii=ii+1
  511. 1018 ifv=7500thenjj=jj+1
  512. 1020 ifv=10000thenkk=kk+1
  513. 1022 ifv=15000thenll=ll+1
  514. 1024 ifv=20000thenmm=mm+1
  515. 1026 ifv=25000thennn=nn+1
  516. 1028 ifv=30000thenoo=oo+1
  517. 1030 ifv=40000thenpp=pp+1
  518. 1032 ifv=50000thenqq=qq+1
  519. 1034 ifi=18thenprint"[208]ress a key":gosub1102
  520. 1036 ifi=36thenprint"[208]ress a key":gosub1102
  521. 1038 ifi=54thenprint"[208]ress a key":gosub1102
  522. 1040 ifi=72thenprint"[208]ress a key":gosub1102
  523. 1042 ifi=90thenprint"[208]ress a key":gosub1102
  524. 1044 nexti
  525. 1046 print"[208]ress a key"
  526. 1048 gety$:ify$=""then1048
  527. 1050 print"[147][212]ype of[157][157][157][157][157][157][157]jewelry        [214]alue (in [199][208])"
  528. 1052 forw=0to39:print"[183]";:nextw
  529. 1054 print""
  530. 1056 print"[212]otal value of jewelry =";z
  531. 1058 print"[202]ewelry value 100";aa
  532. 1060 print"[202]ewelry value 500";bb
  533. 1062 print"[202]ewelry value 1000";cc
  534. 1064 print"[202]ewelry value 1500";dd
  535. 1066 print"[202]ewelry value 2000";ee
  536. 1068 print"[202]ewelry value 2500";ff
  537. 1070 print"[202]ewelry value 3000";gg
  538. 1072 print"[202]ewelry value 4000";hh
  539. 1074 print"[202]ewelry value 5000";ii
  540. 1076 print"[202]ewelry value 7500";jj
  541. 1078 print"[202]ewelry value 10000";kk
  542. 1080 print"[202]ewelry value 15000";ll
  543. 1082 print"[202]ewelry value 20000";mm
  544. 1084 print"[202]ewelry value 25000";nn
  545. 1086 print"[202]ewelry value 30000";oo
  546. 1088 print"[202]ewelry value 40000";pp
  547. 1090 print"[202]ewelry value 50000";qq
  548. 1092 print"[206]ew jewelrys (y/n)"
  549. 1094 geti$:ifi$=""then1094
  550. 1096 ifi$="y"then916
  551. 1098 ifi$="n"then0
  552. 1100 ifi$<>"y"andi$<>"n"then1094
  553. 1102 getx$:ifx$=""then1102
  554. 1104 print"[147][212]ype of[157][157][157][157][157][157][157]jewelry        [214]alue (in [199][208])"
  555. 1105 forr=0to39:print"[183]";:nextr
  556. 1106 ford=1037to2044step40:poked,93:nextd
  557. 1108 print""
  558. 1110 return
  559. 1112 clr:input"[147][200]ow many jewelry";j
  560. 1114 print"[147][208]lease wait, counting"
  561. 1116 fori=1toj
  562. 1118 x=int(100*rnd(ti)+1)
  563. 1120 ifx=1thenv=100
  564. 1122 ifx=>2andx<=3thenv=500
  565. 1124 ifx=>4andx<=6thenv=1000
  566. 1126 ifx=>7andx<=10thenv=1500
  567. 1128 ifx=>11andx<=16thenv=2000
  568. 1130 ifx=>17andx<=24thenv=2500
  569. 1132 ifx=>25andx<=34thenv=3000
  570. 1134 ifx=>35andx<=45thenv=4000
  571. 1136 ifx=>46andx<=58thenv=5000
  572. 1138 ifx=>59andx<=69thenv=7500
  573. 1140 ifx=>70andx<=78thenv=10000
  574. 1142 ifx=>79andx<=85thenv=15000
  575. 1144 ifx=>86andx<=90thenv=20000
  576. 1146 ifx=>91andx<=94thenv=25000
  577. 1148 ifx=>95andx<=97thenv=30000
  578. 1150 ifx=>98andx<=99thenv=40000
  579. 1152 ifx=100thenv=50000
  580. 1154 s=z+v:z=s
  581. 1156 ifv=100thenaa=aa+1
  582. 1158 ifv=500thenbb=bb+1
  583. 1160 ifv=1000thencc=cc+1
  584. 1162 ifv=1500thendd=dd+1
  585. 1164 ifv=2000thenee=ee+1
  586. 1166 ifv=2500thenff=ff+1
  587. 1168 ifv=3000thengg=gg+1
  588. 1170 ifv=4000thenhh=hh+1
  589. 1172 ifv=5000thenii=ii+1
  590. 1174 ifv=7500thenjj=jj+1
  591. 1176 ifv=10000thenkk=kk+1
  592. 1178 ifv=15000thenll=ll+1
  593. 1180 ifv=20000thenmm=mm+1
  594. 1182 ifv=25000thennn=nn+1
  595. 1184 ifv=30000thenoo=oo+1
  596. 1186 ifv=40000thenpp=pp+1
  597. 1188 ifv=50000thenqq=qq+1
  598. 1190 nexti
  599. 1192 goto1050
  600. 1194 print"[147]":clr
  601. 1196 input"[205]onsters [200]it [196]ice";h
  602. 1198 t=0
  603. 1200 fori=1toh:x=int(8*rnd(ti)+1):print"[158]"x;:a=t+x:t=a:nexti
  604. 1202 poke782,0
  605. 1204 poke781,19
  606. 1206 sys65520
  607. 1208 print"[144][212]otal:";t
  608. 1210 print"[153][206]ew [200]it [196]ice (y/n)"
  609. 1212 geta$:ifa$=""then1212
  610. 1214 ifa$="y"then1194
  611. 1216 ifa$="n"then0
  612. 1218 ifa$<>"y"anda$<>"n"then1212
  613. 1220 print"[147]"
  614. 1222 print"l[207]"chr$(34)" treasures2"chr$(34)",8,1[145][145][145][145]":gosub1224:stop
  615. 1224 poke198,7:poke631,13:poke632,147:poke633,82:poke634,117:poke635,9:poke636,31:poke637,13:return
  616. 1226 rem ** d.robbins **
  617. 1228 print"[147]"
  618. 1229 print"[147][150][205]enu 2"
  619. 1230 poke53280,2:poke53281,2:print"    [196][213][206][199][197][207][206][211]   "
  620. 1232 print"     &"
  621. 1234 print"       [196][210][193][199][207][206][211]    "
  622. 1236 print"[150]  [194]y fanatic [196]&[196] fan  [196].[210]obbins"
  623. 1238 print"[150][201]mprovments by [212]he [194]alron"
  624. 1240 print"       1. [215]eapons"
  625. 1242 print"       2. [193]rmoury"
  626. 1244 print"       3. [205]onsters [200]it [196]ice"
  627. 1246 print"       4. [197]xperience counting"
  628. 1248 print"       5. [207]ther notes"
  629. 1250 print"       6. [205]enu 3"
  630. 1251 sys49152
  631. 1252 geta$:ifa$=""then1252
  632. 1254 ifa$="1"thengosub1270:goto1228
  633. 1256 ifa$="2"thengosub1444:goto1228
  634. 1258 ifa$="3"thengoto1482
  635. 1260 ifa$="4"thengosub1514:goto1228
  636. 1262 ifa$="5"thengosub1558:goto1228
  637. 1264 ifa$="6"thengoto5000
  638. 1266 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$<>"6"then1252
  639. 1268 end
  640. 1270 print"[147]1.[211]words"
  641. 1272 print"2.[194]ows"
  642. 1274 print"3.[193]xes"
  643. 1276 print"4.[196]aggers"
  644. 1278 print"5.[207]ther [215]eapons"
  645. 1280 print"6.[206]ew [215]eapons"
  646. 1282 print"7.[194]ack to [205]ain [205]enu"
  647. 1284 gets$:ifs$=""then1284
  648. 1286 ifs$="1"thengosub1302:goto1270
  649. 1288 ifs$="2"thengosub1320:goto1270
  650. 1290 ifs$="3"thengosub1340:goto1270
  651. 1292 ifs$="4"thengosub1352:goto1270
  652. 1294 ifs$="5"thengosub1362:goto1270
  653. 1296 ifs$="6"thengosub1380:goto1270
  654. 1298 ifs$="7"thengoto1228
  655. 1300 return
  656. 1302 print"[147]1.[211][215][207][210][196][211]          "
  657. 1304 print"[211]hort sword       1d6    cost:7 gp"
  658. 1306 print"[206]ormal sword     1d8    cost:10 gp"
  659. 1308 print"[212]wo-[200]anded [211]word  1d10   cost:15 gp"
  660. 1310 print"[194]astard [211]word     1d8+1  cost:15 gp"
  661. 1312 print"([200]alfling may use, two-handed, not "
  662. 1314 print"lose initiative)
  663. 1316 [161]a$:[139]a$[178]""[167]1316
  664. 1318 [142]
  665. 1320 [153]"load2.peek(NULL)(NULL)(NULL)"
  666. 1322 [153]"lenrossbow lt.        1d6   cost:30 gp"
  667. 1324 [153]"lenrossbow hv.        2d4   cost:50 gp"
  668. 1326 [153]"lenase,30 qrls             cost:10 gp"
  669. 1328 [153]"(NULL)ong peekow            1d6   cost:40 gp"
  670. 1330 [153]"(NULL)hort peekow           1d6   cost:25 gp"
  671. 1332 [153]"(NULL)uiver,20 arrows         cost:5  gp"
  672. 1334 [153]"1 (NULL)ilver atnrrow           cost:5  gp"
  673. 1336 [161]a$:[139]a$[178]""[167]1336
  674. 1338 [142]
  675. 1340 [153]"load3.atn(NULL)val(NULL)"
  676. 1342 [153]"peekattle atnxe (two-h)  1d8   cost:7  gp"
  677. 1344 [153]"left$and atnxe            1d6   cost:5  gp"
  678. 1346 [153]"left$eavy peekattle atnxe    1d10  cost:15 gp"
  679. 1348 [161]a$:[139]a$[178]""[167]1348
  680. 1350 [142]
  681. 1352 [153]"load4.str$atnchr$chr$val(NULL)(NULL)"
  682. 1354 [153]"(NULL)ormal str$agger      1d4   cost:3  gp"
  683. 1356 [153]"(NULL)ilver str$agger      1d4   cost:30 gp"
  684. 1358 [161]a$:[139]a$[178]""[167]1358:
  685. 1360 [142]
  686. 1362 [153]"load5.(NULL)(NULL)left$val(NULL)close(NULL)valatn(NULL)(NULL)(NULL)(NULL)"
  687. 1364 [153]"*(NULL)ace              1d4   cost:5  gp"
  688. 1366 [153]"*lenlub              1d4   cost:3  gp"
  689. 1368 [153]"(NULL)ole atnrm (two-h)   1d10  cost:7  gp"
  690. 1370 [153]"*(NULL)ling, 30 (NULL)tones  1d4   cost:2  gp"
  691. 1372 [153]"(NULL)pear              1d6   cost:3  gp"
  692. 1374 [153]"*(NULL)ar left$ammer        1d6   cost:5  gp* lenleric may use"
  693. 1376 [161]a$:[139]a$[178]""[167]1376
  694. 1378 [142]
  695. 1380 [153]"load6.(NULL)val(NULL) (NULL)valatn(NULL)(NULL)(NULL)(NULL)"
  696. 1382 [153]"peeklowgun  cost:3gp poison   10/20/30'"
  697. 1384 [153]"peekola      cost:5gp 1-2+ent  20/40/60'"
  698. 1386 [153]"peeklacjack  cost:5gp 1-2 + special"
  699. 1388 [153]"(NULL)et       cost:1sp entangle10/20/30'"
  700. 1390 [153]"(NULL)rident   cost:5gp 1d6      10/20/30'"
  701. 1392 [153]"(NULL)hip      cost:1gp 1-2 or ent (5-30')
  702. 1394 print"[204]vl,[200][196] [194]on  [194]lackjack  [194]ol,[206],[215]h  [194]lowg"
  703. 1396 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  704. 1398 print"1       -   [203]nockout   [197]ntangle  [196]eath"
  705. 1400 print"2-3    +1   [203]nockout   [197]ntangle  *    "
  706. 1402 print"4-6    +2     [211]tun     [211]low      **   "
  707. 1404 print"7-9   +3     [211]tun     [211]low     50% hp"
  708. 1406 print"10-12  +4    [196]elay     [196]elay    25% hp"
  709. 1408 print"12-    +5    [196]elay     [196]elay    25% hp"
  710. 1410 print"*  75% hp + paralysis"
  711. 1412 print"** 50% hp + paralysis"
  712. 1414 geta$:ifa$=""then1414
  713. 1416 print"[147][203][206][207][195][203][207][213][212]: unconsious and helpless for"
  714. 1418 print"1-100 (d%) rounds."
  715. 1420 print"[211][212][213][206]: move 1/3 normal,see [211][197][212] 3  p.[196]3."
  716. 1422 print"[196][197][204][193][217]: loses [201]nit.on the next round."
  717. 1424 print"[196][197][193][212][200]: [200]it [208]oints reduced to 0."
  718. 1426 print"[208][193][210][193][204][217][211][201][211]: helpless for 1-6 turns."
  719. 1428 print"% of hit points: loses % of original"
  720. 1430 print"(fully healed) hit points."
  721. 1432 print"[197][206][212][193][206][199][204][197]: cannot attack, cast or move"
  722. 1434 print"until a [211]aving [212]hrow is successful."
  723. 1436 print"[211][204][207][215]: moving and attacking at 1/2 rate"
  724. 1438 print"[206]o spells can be cast."
  725. 1440 geta$:ifa$=""then1440
  726. 1442 return
  727. 1444 print"[147][204][197][193][212][200][197][210][160][193][210][205][207][210]   [193][195] 7    cost:20  gp"
  728. 1446 print"[211][195][193][204][197][160][205][193][201][204]      [193][195] 6    cost:30  gp"
  729. 1448 print"[195][200][193][201][206][160][205][193][201][204]      [193][195] 5    cost:40  gp"
  730. 1450 print"[194][193][206][196][197][196] [205][193][201][204]     [193][195] 4    cost:50  gp"
  731. 1452 print"[208][204][193][212][197][160][205][193][201][204]      [193][195] 3    cost:60  gp"
  732. 1454 print"[202][207][213][211][212][160][193][210][205][207][210]     [193][195] 0    cost:70  gp"
  733. 1456 print"[211][200][201][197][204][196]          [193][195] -1   cost:10  gp"
  734. 1458 print"[198]or [211]pecial see [211][197][212] 3, p.[196]46"
  735. 1460 geta$:ifa$=""then1460
  736. 1462 print"[147][200][207][210][211][197][160][193][210][205][207][210] ([194][193][210][196][201][206][199])"
  737. 1464 print"[204]eather   [193][195] 7    40 gp    250 cn"
  738. 1466 print"[211]cale     [193][195] 6    75 gp    400 cn"
  739. 1468 print"[195]hain     [193][195] 5   150 gp    600 cn"
  740. 1470 print"[194]anded    [193][195] 4   400 gp   1500 cn"
  741. 1472 print"[208]late     [193][195] 3   500 gp   3000 cn"
  742. 1474 print"[198]ield     [193][195] 2   600 gp   4000 cn"
  743. 1476 print"[202]oust     [193][195] 0   700 gp   5000 cn"
  744. 1478 geta$:ifa$=""then1478
  745. 1480 return
  746. 1482 print"[147]":clr
  747. 1484 input"[205]onster's [200]it [196]ice:";h
  748. 1486 t=0
  749. 1488 fork=1toh
  750. 1490 x=(int(8*rnd(ti)+1))
  751. 1492 print"[158]"x;
  752. 1494 a=t+x:t=a
  753. 1496 next
  754. 1498 print
  755. 1500 print"[144][212]otal:";"[158]"t""
  756. 1502 print"[206]ew [200][196] ? ([217]/[206])"
  757. 1504 geta$:ifa$=""then1504
  758. 1506 ifa$="y"thengoto1482
  759. 1508 ifa$="n"then1512
  760. 1510 ifa$<>"y"anda$<>"n"then1504
  761. 1512 goto1228
  762. 1514 print"[147]"
  763. 1516 print" [197][216][208][197][210][201][197][206][195][197][160][208][207][201][206][212][211]:"
  764. 1518 input"[202]ewerys total value:";a
  765. 1520 input"10gp [199]ems ([200]ow many):";b
  766. 1522 input"50gp [199]ems:";c
  767. 1524 input"100gp [199]ems:";d
  768. 1526 input"500gp [199]ems:";e
  769. 1528 input"1000gp [199]ems:";f
  770. 1530 input"5000gp [199]ems:";g
  771. 1532 input"10000gp [199]ems:";h
  772. 1534 input"50000gp [199]ems:";i
  773. 1536 input"[211][208]'s:";j
  774. 1538 input"[197][208]'s:";k
  775. 1540 input"[199][208]'s:";l
  776. 1542 input"[208][208]'s:";m
  777. 1544 x=a+(b*10)+(c*50)+(d*100)+(e*500)+(f*1000)+(g*5000)+(h*10000)+(i*50000)
  778. 1546 y=(j/10)+(k/2)+l+(5*m)
  779. 1548 print"[212]otal [214]alue is "x+y"gp"
  780. 1550 input"[208]lus [205]onsters [197]xp.:";n
  781. 1552 print"[212]otal [197]xp. [208]oints are "x+y+n
  782. 1554 geta$:ifa$=""then1554
  783. 1556 return
  784. 1558 print"[147]"
  785. 1560 print"1.[205]issile [198]ire [212]able"
  786. 1562 print"2.[200]it [208]oints"
  787. 1564 print"3.[212]he [215]ar [205]achine"
  788. 1566 print"4.[205]oney [195]onversion [212]able"
  789. 1568 print"5.[206]atural [197]vents"
  790. 1570 print"6.[213]nnatural [197]vents"
  791. 1572 print"7.[196]uration of [195]harm"
  792. 1574 print"8.[205]onster [210]eaction [195]hart"
  793. 1576 print"9.[205]agic [201]tems [208]rices"
  794. 1578 print" [194].[194]ack to [205]ain [205]enu"
  795. 1580 geta$:ifa$=""then1580
  796. 1582 ifa$="1"thengosub1604:goto1558
  797. 1584 ifa$="2"thengosub1632:goto1558
  798. 1586 ifa$="3"thengosub1672:goto1558
  799. 1588 ifa$="4"thengosub1678:goto1558
  800. 1590 ifa$="5"thengosub1690:goto1558
  801. 1592 ifa$="6"thengosub1730:goto1558
  802. 1594 ifa$="7"thengosub1764:goto1558
  803. 1596 ifa$="8"thengosub1798:goto1558
  804. 1598 ifa$="9"thengosub1806:goto1558
  805. 1600 ifa$="[194]"thengoto1228
  806. 1602 return
  807. 1604 print"[147]            [205]aximum [210]anges (in feet)"
  808. 1606 print"[215][197][193][208][207][206][211]          [211]hort  [205]edium  [204]ong"
  809. 1608 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  810. 1610 print"[195]rossbow,[204]t        60     120    180"
  811. 1612 print"[195]rossbow,[200]v        80     160    240"
  812. 1614 print"[204]ong [194]ow           70     140    210"
  813. 1616 print"[211]hort [194]ow          50     100    150"
  814. 1618 print"[211]ling              40      80    160"
  815. 1620 print"[211]pear              20      40     60"
  816. 1622 print"[207]il or [200]oly [215]ater  10      30     50"
  817. 1624 print"[200]and [193]xe or [196]agger 10      20     30"
  818. 1626 print"[198]or [205]isile [194]onuses see [211][197][212] 3, p.[196]56"
  819. 1628 geta$:ifa$=""then1628
  820. 1630 return
  821. 1632 print"[147][195][204][193][211][211]                [200][201][212][160][208][207][201][206][212][211][160][196][201][195][197]"
  822. 1634 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  823. 1636 print"[198]ighter                    1d8"
  824. 1638 print" [196]warf                      1d8"
  825. 1640 print"[195]leric                     1d6"
  826. 1642 print"[197]lf                        1d6"
  827. 1644 print"[200]alfling                   1d6"
  828. 1646 print"[205]agic-[213]ser                 1d4"
  829. 1648 print" [212]hief                      1d4"
  830. 1650 print"[205][193][216][201][205][213][205][160][200][201][212][160][208][207][201][206][212][211]"
  831. 1652 print"[196]ice  [195]on.      [205]aximum hp"
  832. 1654 print"[210]olls  [194]onus   [204]15  [204]25  [204]36"
  833. 1656 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  834. 1658 print" [195]leric    54     27      87   97  108"
  835. 1660 print" [198]ighter   72     27     111  131  153"
  836. 1662 print" [205]-[213]       36     27      69   79   90"
  837. 1664 print" [212]hief     36     27      75   95  117"
  838. 1666 print"[198]or [196]emi-[200]umans [205]ax.hp, see [211][197][212]3 p.[196]22"
  839. 1668 geta$:ifa$=""then1668
  840. 1670 return
  841. 1672 print"[147][211]ee [196]&[196][160][211][197][212] 3, p. [196]12"
  842. 1674 geta$:ifa$=""then1674
  843. 1676 return
  844. 1678 print"[147]      [205][207][206][197][217][160][195][207][206][214][197][210][211][201][207][206][160][212][193][194][204][197]"
  845. 1680 print"  100 cp = 1 gp       2 ep = 1 gp"
  846. 1682 print"  10 sp = 1 gp        5  gp = 1pp"
  847. 1684 print"1 pp = 5 gp = 10 ep = 50 sp = 500 cp"
  848. 1686 geta$:ifa$=""then1686
  849. 1688 return
  850. 1690 print"[147]*[197]arthquake ([205]aanjaristys) 10%"
  851. 1692 print"[197]xplosion  10%"
  852. 1694 print"[198]ire,[205]inor 50%"
  853. 1696 print"*[198]ire, [205]ajor 10%"
  854. 1698 print"[198]lood ([212]ulva) 10-50%"
  855. 1700 print"*[200]urricane 15%"
  856. 1702 print"*[205]eteor [211]trike, [205]ajor 1%"
  857. 1704 print"[205]eteor [211]hower, [205]inor 20%"
  858. 1706 print"*[208]lague ([210]utto) 25%
  859. 1708 [153]"(NULL)inkhole ((NULL)aan (NULL)ajoaminen) 5%"
  860. 1710 [153]"(NULL)torm 80%"
  861. 1712 [153]"*(NULL)ornado 25%"
  862. 1714 [153]"*(NULL)olcano ((NULL)ulivuorenpurkaus) 2%"
  863. 1716 [153]"(NULL)hirlpool ((NULL)urimus) 25%"
  864. 1718 [153]"(NULL)ee more (NULL)val(NULL) 3, p.str$10
  865. 1720 print"* '[196]isasters' ([203]atastrofi,[212]uho)"
  866. 1722 print"1-4 unnatural or natural events per "
  867. 1724 print"game year."
  868. 1726 geta$:ifa$=""then1726
  869. 1728 return
  870. 1730 print"[147][193]ssassination ([211]alamurha) 10%"
  871. 1732 print"[194]andits ([214]arkaat) 50%"
  872. 1734 print"[194]order [211]kirmish ([210]ajakahakka) 40%"
  873. 1736 print"[195]ultural [196]iscovery 10%"
  874. 1738 print"[201]nsurrection ([203]apina) 10%"
  875. 1740 print"[205]agical [200]appening 30%"
  876. 1742 print"[205]igration ([203]ansainvaellus) 10%"
  877. 1744 print"[213]surper ([214]allankaappaaja) 10%"
  878. 1746 print"[211]py [210]ing ([214]akoiluketju) 60%"
  879. 1748 print"[212]raitor ([203]avaltaja) 30%"
  880. 1750 print"[214][201][208] [214]isitor 10%"
  881. 1752 print"[215]andering [205]onster, 20 [200][196]+   75%"
  882. 1754 print"[198]or more, see [211][197][212] 3, p.[196]10"
  883. 1756 print"1-4 unnatural or natural events per "
  884. 1758 print"game year."
  885. 1760 getd$:ifd$=""then1760
  886. 1762 return
  887. 1764 print"[147][201]ntelligence          [211]ave again after"
  888. 1766 print"0                   120 days"
  889. 1768 print"190 days"
  890. 1770 print"260 days"
  891. 1772 print"345 days"
  892. 1774 print"4-530 days"
  893. 1776 print"6-815 days"
  894. 1778 print"9-127 days"
  895. 1780 print"13-15                   3 days"
  896. 1782 print"16-17                 24 hours"
  897. 1784 print" 18                    8 hours"
  898. 1786 print" 19                    3 hours"
  899. 1788 print"20                    1 hour"
  900. 1790 print"21+                   1 turn"
  901. 1792 print"  (10 minutes)"
  902. 1794 geta$:ifa$=""then1794
  903. 1796 return
  904. 1798 print"[147][205][207][206][211][212][197][210][160][210][197][193][195][212][201][207][206][160][195][200][193][210][212]"
  905. 1800 print"[211]ee [196]&[196][160][211][197][212] 4, p.[196]9"
  906. 1802 geta$:ifa$=""then1802
  907. 1804 return
  908. 1806 print"[147] [205][193][199][201][195][160][201][212][197][205][211][160][208][210][201][195][197][160][210][193][206][199][197][211]"
  909. 1808 print"[193]rmor              10.000-150.000gp"
  910. 1810 print"[205]isc. [201]tem         5.000-750.000gp"
  911. 1812 print"[205]isc. [215]eapon       5.000-250.000gp"
  912. 1814 print"[205]issile            1.000-5.000gp"
  913. 1816 print"[205]issile [196]evice     10.000-250.000gp"
  914. 1818 print"[208]otion             1.000-10.000gp"
  915. 1820 print"[210]ing               10.000-250.000gp"
  916. 1822 print"[210]od                25.000-500.000gp"
  917. 1824 print"[211]croll             5.000-75.000gp"
  918. 1826 print"[211]hield             5.000-75.000gp"
  919. 1828 print"[211]taff              15.000-300.000gp"
  920. 1830 print"[211]word              5.000-500.000gp"
  921. 1832 print"[215]and               5.000-150.000gp"
  922. 1834 geta$:ifa$=""then1834
  923. 1836 return
  924. 1838 goto0
  925. 5000 rem ** the balron **
  926. 5003 poke53280,12:poke53281,12:print""
  927. 5010 print"[147][155][205]enu 3"
  928. 5020 print"[196][213][206][199][197][207][206][211]"
  929. 5030 print"&"
  930. 5040 print"[196][210][193][199][207][206][211]"
  931. 5050 print"[153][205][207][210][197] [193][201][196]"
  932. 5060 print"[149][183][183][183][183][183][183][183][183][183][183]"
  933. 5070 print"[151][194]y [212]he [194]alron 1987"
  934. 5080 print"1.[215]and,staff or rod"
  935. 5090 print"2.[210]ings"
  936. 5100 print"3.[211]crolls"
  937. 5110 print"4.[205]isc.items"
  938. 5115 print"5.[205]issile or device"
  939. 5116 print"6.[205]enu 1"
  940. 5117 sys49152
  941. 5120 geta$:ifa$=""then5120
  942. 5130 ifa$="1"then5180
  943. 5140 ifa$="2"then5750
  944. 5150 ifa$="3"then6280
  945. 5160 ifa$="4"then20000
  946. 5165 ifa$="5"then25000
  947. 5166 ifa$="6"then0
  948. 5170 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$<>"6"then5120
  949. 5180 print""
  950. 5190 clr:poke53281,12:poke53280,12
  951. 5200 input"[147][200]ow many wands/staves/rods";h
  952. 5210 print"[147]"
  953. 5220 print"[212]ype of wand/staff/rod + charges"
  954. 5230 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][158]"
  955. 5240 fori=1toh
  956. 5250 x=int(100*rnd(ti)+1)
  957. 5260 ifx<=5thenprint"wand of cold";:gosub5670:printy
  958. 5270 ifx=>6andx<=10thenprint"wand of enemy detection";:gosub5670:printy
  959. 5280 ifx=>11andx<=14thenprint"wand of fear";:gosub5670:printy
  960. 5290 ifx=>15andx<=19thenprint"wand of fire balls";:gosub5670:printy
  961. 5300 ifx=>20andx<=23thenprint"wand of illusion";:gosub5670:printy
  962. 5310 ifx=>24andx<=28thenprint"wand of lightning bolts";:gosub5670:printy
  963. 5320 ifx=>29andx<=33thenprint"wand of magic detection";:gosub5670:printy
  964. 5330 ifx=>34andx<=38thenprint"wand of metal detection";:gosub5670:printy
  965. 5340 ifx=>39andx<=42thenprint"wand of negation";:gosub5670:printy
  966. 5350 ifx=>43andx<=47thenprint"wand of paralyzation";:gosub5670:printy
  967. 5360 ifx=>48andx<=52thenprint"wand of polymorphing";:gosub5670:printy
  968. 5370 ifx=>53andx<=56thenprint"wand of sec.door detection";:gosub 5670:printy
  969. 5380 ifx=>57andx<=60thenprint"wand of trap detection";:gosub 5670:printy
  970. 5390 ifx=61thenprint"staff of commanding";:gosub 5690:printz
  971. 5400 ifx=>62andx<=63thenprint"staff of dispelling";:gosub 5690:printz
  972. 5410 ifx=>64andx<=66thenprint"staff of the druids";:gosub5690:printz
  973. 5420 ifx=>67andx<=69thenprint"staff of an element";:gosub5690:printz
  974. 5430 ifx=>70andx<=71thenprint"staff of harming";:gosub5690:printz
  975. 5440 ifx=>72andx<=78thenprint"staff of healing";:gosub5690:printz
  976. 5450 ifx=79thenprint"staff of power";:gosub5690:printz
  977. 5460 ifx=>80andx<=82thenprint"snake staff";:gosub5690:printz
  978. 5470 ifx=>83andx<=85thenprint"staff of striking";:gosub5690:printz
  979. 5480 ifx=>86andx<=87thenprint"staff of withering";:gosub5690:printz
  980. 5490 ifx=88thenprint"staff of wizardry";:gosub5690:printz
  981. 5500 ifx=>89andx<=90thenprint"rod of cancellation"
  982. 5510 ifx=91thenprint"rod of dominion"
  983. 5520 ifx=92thenprint"rod of health"
  984. 5530 ifx=>93andx<=94thenprint"rod of inertia"
  985. 5540 ifx=95thenprint"rod of parrying"
  986. 5550 ifx=96thenprint"rod of victory"
  987. 5560 ifx=>97andx<=99thenprint"rod of weaponry"
  988. 5570 ifx=100thenprint"rod of the wyrm"
  989. 5580 ifi=18thenprint"[158][208]ress a key":gosub5710
  990. 5590 ifi=36thenprint"[158][208]ress a key":gosub5710
  991. 5600 ifi=54thenprint"[158][208]ress a key":gosub5710
  992. 5610 next
  993. 5620 print"[206]ew wands/staves/rods (y/n)"
  994. 5630 getr$:ifr$=""then5630
  995. 5640 ifr$="y"then5190
  996. 5650 ifr$="n"then5000
  997. 5660 ifr$<>"y"andr$<>"n"then5630
  998. 5670 y=(int(10*rnd(ti)+1)*3)
  999. 5680 return
  1000. 5690 z=(int(20*rnd(ti)+1)*2)
  1001. 5700 return
  1002. 5710 geta$:ifa$=""then5710
  1003. 5720 print"[147][212]ype of wand/staff/rod + charges"
  1004. 5730 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][158]"
  1005. 5740 return
  1006. 5750 clr:print""
  1007. 5760 poke53281,12:poke53280,12
  1008. 5770 print"[147]"
  1009. 5780 input"[200]ow many rings";h
  1010. 5790 print"[147][210]ing of:[158]"
  1011. 5800 fori=1toh
  1012. 5810 x=int(100*rnd(ti)+1)
  1013. 5820 ifx<=2thenprint"animal control"
  1014. 5830 ifx=>3andx<=8thenprint"delusion"
  1015. 5840 ifx=9thenprint"djinni summoning"
  1016. 5850 ifx=>10andx<=13thenprint"ear ring"
  1017. 5860 ifx=>14andx<=17thenprint"elemantal adaptation"
  1018. 5870 ifx=>18andx<=23thenprint"fire recistance"
  1019. 5880 ifx=>24andx<=26thenprint"holiness"
  1020. 5890 ifx=27thenprint"human control"
  1021. 5900 ifx=>28andx<=32thenprint"invisibility"
  1022. 5910 ifx=>33andx<=35thenprint"life protection"
  1023. 5920 ifx=>36andx<=38thenprint"memory"
  1024. 5930 ifx=>39andx<=40thenprint"plant control"
  1025. 5940 ifx=>41andx<=45thenprint"protection +1"
  1026. 5950 ifx=>46andx<=48thenprint"protection +2"
  1027. 5960 ifx=>49andx<=50thenprint"protection +3"
  1028. 5970 ifx=51thenprint"protection +4"
  1029. 5980 ifx=>52andx<=55thenprint"quickness"
  1030. 5990 ifx=56thenprint"regeneration"
  1031. 6000 ifx=>57andx<=59thenprint"remedis"
  1032. 6010 ifx=>60andx<=61thenprint"safety"
  1033. 6020 ifx=>62andx<=64thenprint"seeing"
  1034. 6030 ifx=>65andx<=67thenprint"spell eating"
  1035. 6040 ifx=>68andx<=69thenprint"spell storing"
  1036. 6050 ifx=>70andx<=71thenprint"spell turning"
  1037. 6060 ifx=>72andx<=75thenprint"survival"
  1038. 6070 ifx=>76andx<=77thenprint"telekinesis"
  1039. 6080 ifx=>78andx<=81thenprint"truth"
  1040. 6090 ifx=>82andx<=84thenprint"truthfulness"
  1041. 6100 ifx=>85andx<=86thenprint"truthlessness"
  1042. 6110 ifx=>87andx<=91thenprint"water walking"
  1043. 6120 ifx=>92andx<=96thenprint"weakness"
  1044. 6130 ifx=>97andx<=98thenprint"wishes"
  1045. 6140 ifx=>99andx<=100thenprint"[216]-ray vision"
  1046. 6150 ifi=18thengosub6240
  1047. 6160 ifi=36thengosub6240
  1048. 6170 ifi=54thengosub6240
  1049. 6180 nexti
  1050. 6190 print"[158][206]ew rings (y/n)"
  1051. 6200 geta$:ifa$=""then6200
  1052. 6210 ifa$="y"then5750
  1053. 6220 ifa$="n"then5000
  1054. 6230 ifa$<>"y"anda$<>"n"then6200
  1055. 6240 print"[158][208]ress a key"
  1056. 6250 geta$:ifa$=""then6250
  1057. 6260 print"[147][210]ing of:[158]"
  1058. 6270 return
  1059. 6280 clr:poke53281,12:poke53280,12
  1060. 6290 input"[147][200]ow many scrolls";h
  1061. 6300 print"[147][212]ype of scroll:[158]"
  1062. 6310 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  1063. 6320 fori=1toh
  1064. 6330 x=int(100*rnd(ti)+1)
  1065. 6340 ifx<=3thenprint"communication"
  1066. 6350 ifx=>4andx<=5thenprint"creation"
  1067. 6360 ifx=>6andx<=13thenprint"curse"
  1068. 6370 ifx=14thenprint"delay"
  1069. 6380 ifx=>15andx<=17thenprint"equipment"
  1070. 6390 ifx=>18andx<=19thenprint"illumination"
  1071. 6400 ifx=>20andx<=21thenprint"mages"
  1072. 6410 ifx=>22andx<=25thenprint"map to normal treasure"
  1073. 6420 ifx=>26andx<=28thenprint"map to magical treasure"
  1074. 6430 ifx=>29andx<=30thenprint"map to combined treasure"
  1075. 6440 ifx=31thenprint"map to special treasure"
  1076. 6450 ifx=>32andx<=34thenprint"mapping"
  1077. 6460 ifx=>35andx<=36thenprint"portals"
  1078. 6470 ifx=>37andx<=42thenprint"protection from elementals"
  1079. 6480 ifx=>43andx<=50thenprint"protection from lycanthropes"
  1080. 6490 ifx=>51andx<=54thenprint"protection from magic"
  1081. 6500 ifx=>55andx<=61thenprint"protection from undead"
  1082. 6510 ifx=>62andx<=63thenprint"questioning"
  1083. 6520 ifx=64thenprint"repetition"
  1084. 6530 ifx=>65andx<=66thenprint"seeing"
  1085. 6540 ifx=>67andx<=68thenprint"shelter"
  1086. 6550 ifx=>69andx<=71thenprint"spell catching"
  1087. 6560 ifx=>72andx<=96thenprint"spells ";:gosub6710
  1088. 6570 ifx=>97andx<=98thenprint"trapping"
  1089. 6580 ifx=>99andx<=100thenprint"truth"
  1090. 6590 ifi=18thengosub6960
  1091. 6600 ifi=36thengosub6960
  1092. 6610 ifi=54thengosub6960
  1093. 6620 ifi=72thengosub6960
  1094. 6630 ifi=90thengosub6960
  1095. 6640 nexti
  1096. 6650 print"[206]ew scrolls (y/n)"
  1097. 6660 geta$:ifa$=""then6660
  1098. 6670 ifa$="y"then6280
  1099. 6680 ifa$="n"then5000
  1100. 6690 ifa$<>"y"anda$<>"n"then6660
  1101. 6700 end
  1102. 6710 y=int(100*rnd(ti)+1):cl=0:mu=0
  1103. 6720 ify<=70thenprint"magic-user ";:mu=1
  1104. 6730 ify=>71andy<=95thenprint"cleric ";:cl=1
  1105. 6740 ify=>96andy<=100thenprint"druid ";:cl=1
  1106. 6750 ifcl<>1then6850
  1107. 6760 t=int(100*rnd(ti)+1)
  1108. 6770 ift<=34thenprint"1"
  1109. 6780 ift=>35andt<=58thenprint"2"
  1110. 6790 ift=>59andt<=76thenprint"3"
  1111. 6800 ift=>77andt<=88thenprint"4"
  1112. 6810 ift=>89andt<=95thenprint"5"
  1113. 6820 ift=>96andt<=99thenprint"6"
  1114. 6830 ift=100thenprint"7"
  1115. 6840 return
  1116. 6850 r=int(100*rnd(ti)+1)
  1117. 6860 ifr<=28thenprint"1"
  1118. 6870 ifr=>29andr<=49thenprint"2"
  1119. 6880 ifr=>50andr<=64thenprint"3"
  1120. 6890 ifr=>65andr<=75thenprint"4"
  1121. 6900 ifr=>76andr<=84thenprint"5"
  1122. 6910 ifr=>85andr<=91thenprint"6"
  1123. 6920 ifr=>92andr<=96thenprint"7"
  1124. 6930 ifr=>97andr<=99thenprint"8"
  1125. 6940 ifr=100thenprint"9"
  1126. 6950 return
  1127. 6960 print"[208]ress a key"
  1128. 6970 geta$:ifa$=""then6970
  1129. 6980 print"[147][212]ype of scroll:[158]"
  1130. 6990 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  1131. 7000 return
  1132. 20000 clr:poke53281,12:poke53280,12
  1133. 20010 input"[147][200]ow many miscellaneous items";h
  1134. 20020 print"[147][212]ype of miscellaneous item:[158]"
  1135. 20030 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  1136. 20040 fori=1toh
  1137. 20050 x=int(100*rnd(ti)+1)
  1138. 20060 ifx<=2thenprint"amulet of prot.from cryst.balls and [197][211][208]"
  1139. 20070 ifx=>3andx<=4thenprint"bag of devouring"
  1140. 20080 ifx=>5andx<=9thenprint"bag of holding"
  1141. 20090 ifx=>10andx<=12thenprint"boat,undersea"
  1142. 20100 ifx=>13andx<=14thenprint"boots of levitation"
  1143. 20110 ifx=>15andx<=17thenprint"boots of speed"
  1144. 20120 ifx=>18andx<=19thenprint"boots of traveling and leaping"
  1145. 20130 ifx=20thenprint"bowl of commanding water elementals"
  1146. 20140 ifx=21thenprint"brazier of commanding fire elementals"
  1147. 20150 ifx=>22andx<=23thenprint"broom of flying"
  1148. 20160 ifx=24thenprint"censer of controlling air elementals"
  1149. 20170 ifx=>25andx<=27thenprint"chime of time"
  1150. 20180 ifx=>28andx<=29thenprint"crystal ball"
  1151. 20190 ifx=30thenprint"crystal ball with clairaudience"
  1152. 20200 ifx=31thenprint"crystal ball with [197][211][208]"
  1153. 20210 ifx=>32andx<=33thenprint"displacer cloak"
  1154. 20220 ifx=34thenprint"drums of panic"
  1155. 20230 ifx=35thenprint"eefreti bottle"
  1156. 20240 ifx=>36andx<=38thenprint"eggs of wonder"
  1157. 20250 ifx=>39andx<=40thenprint"elven cloak"
  1158. 20260 ifx=>41andx<=42thenprint"elven boots"
  1159. 20270 ifx=43thenprint"flying carpet"
  1160. 20280 ifx=>44andx<=45thenprint"gauntlets of ogre power"
  1161. 20290 ifx=>46andx<=47thenprint"girdle of giant strength"
  1162. 20300 ifx=>48andx<=49thenprint"helm of alignment changing"
  1163. 20310 ifx=>50andx<=51thenprint"helm of reading"
  1164. 20320 ifx=52thenprint"helm of telepathy"
  1165. 20330 ifx=53thenprint"helm of teleportation"
  1166. 20340 ifx=54thenprint"horn of blasting"
  1167. 20350 ifx=>55andx<=57thenprint"lamp of longburning"
  1168. 20360 ifx=>58andx<=59thenprint"lamp,hurricane"
  1169. 20370 ifx=>60andx<=61thenprint"medallion of [197][211][208], 30' range"
  1170. 20380 ifx=62thenprint"medallion of [197][211][208], 90' range"
  1171. 20390 ifx=63thenprint"mirror of life trapping"
  1172. 20400 ifx=>64andx<=66thenprint"muzzle of trainging"
  1173. 20410 ifx=>67andx<=68thenprint"nail,finger"
  1174. 20420 ifx=>69andx<=71thenprint"nail of pointing"
  1175. 20430 ifx=>72andx<=76thenprint"ointment"
  1176. 20440 ifx=>77andx<=79thenprint"pouch of security"
  1177. 20450 ifx=>80andx<=82thenprint"quill of copying"
  1178. 20460 ifx=>83andx<=86thenprint"rope of climbing"
  1179. 20470 ifx=>87andx<=88thenprint"scarab of protection"
  1180. 20480 ifx=>89andx<=91thenprint"slate of identification"
  1181. 20490 ifx=92thenprint"stone of controlling earth elementals"
  1182. 20500 ifx=>93andx<=94thenprint"talisman of elemental travel"
  1183. 20510 ifx=>95andx<=97thenprint"wheel of floating"
  1184. 20520 ifx=98thenprint"wheel of fortune"
  1185. 20530 ifx=>99andx<=100thenprint"wheel,square"
  1186. 20540 ifi=18thengosub20650
  1187. 20550 ifi=36thengosub20650
  1188. 20560 ifi=54thengosub20650
  1189. 20570 ifi=72thengosub20650
  1190. 20580 ifi=90thengosub20650
  1191. 20590 next
  1192. 20600 print"[206]ew items (y/n)"
  1193. 20610 geta$:ifa$=""then20610
  1194. 20620 ifa$="y"then20000
  1195. 20630 ifa$="n"then5000
  1196. 20640 ifa$<>"n"anda$<>"y"then20610
  1197. 20650 print"[208]ress a key"
  1198. 20660 geta$:ifa$=""then20660
  1199. 20670 print"[147][212]ype of miscellaneous item:[158]"
  1200. 20680 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  1201. 20690 return
  1202. 25000 print"[147]"
  1203. 25010 x=int(100*rnd(ti)+1)
  1204. 25020 ifx<=37thenprint"arrows";:wc=1
  1205. 25030 ifx=>38andx<=59thenprint"quarrles";:wc=1
  1206. 25040 ifx=>60andx<=70thenprint"sling stones";:wc=1
  1207. 25050 ifx=>71andx<=72thenprint"blowgun";:wc=2
  1208. 25060 ifx=>73andx<=80thenprint"longbow";:wc=2
  1209. 25070 ifx=>81andx<=85thenprint"shortbow";:wc=2
  1210. 25080 ifx=>86andx<=87thenprint"heavy crossbow";:wc=2
  1211. 25090 ifx=>88andx<=92thenprint"light crossbow";:wc=2
  1212. 25100 ifx=>93thenprint"sling";:wc=2
  1213. 25110 rem ** strength **
  1214. 25120 ifwc=1then25140
  1215. 25130 ifwc=2then25440
  1216. 25140 gosub26090
  1217. 25150 ifx<=40thenprint"+1";:cb=30:ke=10:rn=2
  1218. 25160 ifx=>41andx<=67thenprint"+2";:cb=25:ke=4:rn=2
  1219. 25170 ifx=>68andx<=84thenprint"+3";:cb=20:ke=6:rn=2
  1220. 25180 ifx=>85andx<=94thenprint"+4";:cb=15:ke=4:rn=2
  1221. 25190 ifx=>95andx<=100thenprint"+5";:cb=10:yk=1
  1222. 25200 gosub26090
  1223. 25210 ifx>cbthen26000
  1224. 25220 gosub26090
  1225. 25230 ifx<=4thenprint"+biting";
  1226. 25240 ifx=>5andx<=9thenprint"+blinking";
  1227. 25250 ifx=>10andx<=14thenprint"+charming";
  1228. 25260 ifx=>15andx<=21thenprint"+climbing";
  1229. 25270 ifx=>22andx<=31thenprint"+curing";
  1230. 25280 ifx=>32andx<=34thenprint"+disarming";
  1231. 25290 ifx=>35andx<=38thenprint"+dispelling";
  1232. 25300 ifx=>39andx<=45thenprint"+flying";
  1233. 25310 ifx=>46andx<=52thenprint"+lighting";
  1234. 25320 ifx=>53andx<=57thenprint"+penetrating";
  1235. 25330 ifx=>58andx<=61thenprint"+refilling";
  1236. 25340 ifx=>62andx<=67thenprint"+screaming";
  1237. 25350 ifx=>68andx<=72thenprint"+seeking";
  1238. 25360 ifx=>73andx<=76thenprint"+sinking";
  1239. 25370 ifx=>77andx<=78thenprint"+slaying";
  1240. 25380 ifx=>79andx<=85thenprint"+speaking";
  1241. 25390 ifx=>86andx<=89thenprint"+stunning";
  1242. 25400 ifx=>90andx<=91thenprint"+teleporting";
  1243. 25410 ifx=>92andx<=96thenprint"+transporting";
  1244. 25420 ifx=>97andx<=100thenprint"+wounding";
  1245. 25430 goto26000
  1246. 25440 gosub26090
  1247. 25450 ifx<=70thenprint"+1";:cb=30
  1248. 25460 ifx=>71andx<=88thenprint"+2";:cb=25
  1249. 25470 ifx=>89andx<=96thenprint"+3";:cb=20
  1250. 25480 ifx=>97andx<=99thenprint"+4";:cb=15
  1251. 25490 ifx=100thenprint"+5";:cb=10
  1252. 25500 gosub26090
  1253. 25510 ifx>cbthen26000
  1254. 25520 rem *********
  1255. 25530 s=int(100*rnd(ti)+1)
  1256. 25540 ifs<=29thenprint"+1 vs.";
  1257. 25550 ifs=>30ands<=50thenprint"+2 vs.";
  1258. 25560 ifs=>51ands<=64thenprint"+3 vs.";
  1259. 25570 ifs=>65ands<=72thenprint"+4 vs.";
  1260. 25580 ifs=>73ands<=75thenprint"+5 vs.";
  1261. 25590 ifs=>76ands<=100thenprint" + ";:goto25770
  1262. 25600 rem *** opponents ***
  1263. 25610 i=int(100*rnd(ti)+1)
  1264. 25620 ifi<=6thenprint"[194]ugs"
  1265. 25630 ifi=>7andi<=9thenprint"[195]onstructs"
  1266. 25640 ifi=>10andi<=15thenprint"[196]ragons"
  1267. 25650 ifi=>16andi<=24thenprint"[197]nchanted monsters"
  1268. 25660 ifi=>25andi<=36thenprint"[199]iants"
  1269. 25670 ifi=>37andi<=48thenprint"[204]ycanthropes"
  1270. 25680 ifi=>49andi<=52thenprint"[207]ther-planar creatures"
  1271. 25690 ifi=>53andi<=58thenprint"[210]egenerating [195]reatures"
  1272. 25700 ifi=>59andi<=67thenprint"[210]eptiles (and [196]inosaurs)"
  1273. 25710 ifi=>68andi<=70thenprint"[211]pell [201]mmune creatures"
  1274. 25720 ifi=>71andi<=76thenprint"[211]pell [213]sers"
  1275. 25730 ifi=>77andi<=88thenprint"[213]ndead"
  1276. 25740 ifi=>89andi<=94thenprint"[215]ater-[194]reathing [195]reatures"
  1277. 25750 ifi=>95andi<=100thenprint"[215]eapon-[213]sing [195]reatures"
  1278. 25760 goto26000
  1279. 25770 rem *** talent ***
  1280. 25780 p=int(100*rnd(ti)+1)
  1281. 25790 ifp<=5thenprint"[194]reathing"
  1282. 25800 ifp=>6andp<=12thenprint"[195]harming"
  1283. 25810 ifp=>13andp<=16thenprint"[196]eceiving"
  1284. 25820 ifp=>17andp<=23thenprint"[196]efending"
  1285. 25830 ifp=>24andp<=25thenprint"[196]eflector"
  1286. 25840 ifp=>26andp<=27thenprint"[196]raining"
  1287. 25850 ifp=>28andp<=32thenprint"[197]xtinguishing"
  1288. 25860 ifp=>33andp<=38thenprint"[198]inding"
  1289. 25870 ifp=>39andp<=43thenprint"[198]laming"
  1290. 25880 ifp=>44andp<=46thenprint"[198]lying"
  1291. 25890 ifp=>47andp<=54thenprint"[200]ealing"
  1292. 25900 ifp=>55andp<=59thenprint"[200]iding"
  1293. 25910 ifp=>60andp<=65thenprint"[200]olding"
  1294. 25920 ifp=>66andp<=73thenprint"[204]ightning"
  1295. 25930 ifp=>74andp<=79thenprint"[211]ilencing"
  1296. 25940 ifp=>80andp<=81thenprint"[211]licing"
  1297. 25950 ifp=>82andp<=85thenprint"[211]lowing"
  1298. 25960 ifp=>86andp<=89thenprint"[211]peeding"
  1299. 25970 ifp=>90andp<=94thenprint"[212]ranslating"
  1300. 25980 ifp=>95andp<=99thenprint"[215]atching"
  1301. 25990 ifp=100thenprint"[215]ishing"
  1302. 26000 ifwc=2then26040
  1303. 26010 ifyk=1then nf=(int(4*rnd(ti)+1)+1):goto26030
  1304. 26020 nf=int(ke*rnd(ti)+rn)
  1305. 26030 print" *";nf
  1306. 26040 rem
  1307. 26050 geta$:ifa$=""then26050
  1308. 26060 ifa$=chr$(32)then25000
  1309. 26070 ifa$=chr$(13)then5000
  1310. 26080 ifa$<>chr$(32)anda$<>chr$(13)then26050
  1311. 26090 x=int(100*rnd(ti)+1):return
  1312.